home *** CD-ROM | disk | FTP | other *** search
/ Aminet 39 / Aminet 39 (2000)(Schatztruhe)[!][Oct 2000].iso / Aminet / gfx / edit / PfPaint_V2.lha / PerfectPaint / rexx / general / SaveNewIcon.rx < prev    next >
Encoding:
Text File  |  2000-04-10  |  1.7 KB  |  117 lines
  1. /*     arexx Script 
  2.     Save NEwIcon
  3.     You need "Inject Brush" from NewIcon V3 Archives in C:
  4.     
  5. */
  6.  
  7.     options results 
  8.     parse ARG Port1 b
  9.  
  10.   ADDRESS value Port1 
  11.  
  12.     pp_AvoidRefresh
  13.  
  14.     P=SUBSTR(Port1,15,1)
  15.  
  16.     pp_GetDepth
  17.     D=result
  18.     IF D=24 then DO
  19.         pp_RenderReq 1
  20.         IF result=0 then DO
  21.             pp_permitRefresh
  22.             EXIT
  23.         END
  24.     END
  25.     
  26.     pp_SetBrush 1
  27.  
  28.     IF D=24 then DO
  29.         pp_Render 1 'ram:B1'
  30.     END
  31.  
  32.     pp_GetWidthB
  33.     w1=result
  34.     pp_GetHeightB
  35.     h1=result
  36.     pp_GetDepthB
  37.     d1=result
  38.     
  39.     Bname1='ram:t/B.1.'||P
  40.     Bname2='ram:t/B.2.'||P
  41.  
  42.     error=1
  43.     ADDRESS COMMAND
  44.     if (EXISTS(Bname1))&(EXISTS(Bname2)) THEN error=0
  45.  
  46.     ADDRESS value Port1
  47.     if error=1 then DO
  48.         pp_Warn 'This*script*requires|two*Brushes'
  49.         pp_permitRefresh
  50.         EXIT
  51.     END
  52.  
  53.     pp_SetBrush 2
  54.  
  55.     IF D=24 then DO
  56.         pp_Render 1 'ram:B2'
  57.     END
  58.  
  59.     pp_GetWidthB
  60.     w2=result
  61.     if w1~=w2 THEN DO
  62.         pp_Warn 'Brushes*must*have|the*same*width.'
  63.         pp_permitRefresh
  64.         EXIT
  65.     END
  66.  
  67.     pp_GetHeightB
  68.     h2=result
  69.     if h1~=h2 THEN DO
  70.         pp_Warn 'Brushes*must*have|the*same*height.'
  71.         pp_permitRefresh
  72.         EXIT
  73.     END
  74.  
  75.     pp_GetDepthB
  76.     d2=result
  77.     if d1~=d2 THEN DO
  78.         pp_Warn 'Brushes*must*have|the*same*depth.'
  79.         pp_permitRefresh
  80.         EXIT
  81.     END
  82.  
  83.     IF h1>93|w1>93 THEN DO
  84.          pp_Warn 'Maximum*icon*size*is|93x93'
  85.         pp_permitRefresh
  86.         EXIT
  87.     END
  88.     
  89.     pp_askfile 'Select*a*.info*file'
  90.     file=result
  91.  
  92.     IF RIGHT(file,5)~='.info' THEN DO
  93.         file=file||'.info'
  94.     END
  95.  
  96.     pp_permitRefresh
  97.     
  98.     ADDRESS COMMAND
  99.     if ~EXISTS(file) THEN DO
  100.         'COPY >nil: PerfectPaint:Icons/NI.info '||'"'||file||'"'
  101.     END
  102.  
  103.     IF D<24 then DO
  104.         'C:injectbrush '||' "'||file||'" '||Bname1||' '||Bname2||' FORCE'
  105.     END
  106.     ELSE DO
  107.         'C:injectbrush '||' "'||file||'" '||'ram:B1 ram:B2 FORCE'
  108.         ADDRESS COMMAND
  109.         'delete >nil: ram:B1'
  110.         'delete >nil: ram:B2'
  111.     END
  112.  
  113.  
  114.  
  115.  
  116.  
  117.